home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh21a.d64
/
listing 21
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
668b
|
20 lines
10 REM ******** AUFRUFPROGRAMM FUER TEILBILDSCHIRM **********
20 REM IN REM-BEMERKUNGEN JEWEILS WERTE FUER DEN C128
30 REM VORAUSSETZUNG, DASS BEIM C64 AB $C000
40 REM BEIM C128 AB $1400 DAS PROGRAMM LIEGT.
50 REM
60 REM ------- EINGABE DER PARAMETER ---------
70 PRINT CHR$(147):INPUT"LINKE OBERE ECKE Z1,S1";Z1,S1
80 INPUT"RECHTE UNTERE ECKE Z2,S2";Z2,S2
90 INPUT"FARBE,WERT";F,W
100 REM ------- EINPOKEN DER WERTE ------------
110 POKE 49157,Z1:REM POKE 5125,Z1
120 POKE 49161,S1:REM POKE 5129,S1
130 POKE 49166,S2:REM POKE 5134,S2
140 POKE 49175,Z2:REM POKE 5143,Z2
150 POKE 49255,F:REM POKE 5223,F
160 POKE 49259,W:REM POKE 5227,W
170 REM ------ AUFRUF DER ROUTINE ------------
180 SYS49152
190 END